/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_01 / graphics / modedemo

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 1a ee 20 85 20 | f6 3a f1 22 20 61 74 20 |..... . |.:." at |
|00000010| 6c 69 6e 65 20 22 3b 9e | 3a e0 0d 00 02 0d f2 4d |line ";.|:......M|
|00000020| 6f 64 65 49 6e 66 6f 0d | 00 03 4f f2 64 72 6f 70 |odeInfo.|..O.drop|
|00000030| 62 6f 78 28 4d 6f 64 65 | 5f 4c 6f 67 69 63 61 6c |box(Mode|_Logical|
|00000040| 58 25 2f 32 2c 28 4d 6f | 64 65 5f 4c 6f 67 69 63 |X%/2,(Mo|de_Logic|
|00000050| 61 6c 59 25 2a 33 29 2f | 34 2c 31 30 30 3c 3c 4d |alY%*3)/|4,100<<M|
|00000060| 6f 64 65 5f 45 58 25 2c | 31 30 30 3c 3c 4d 6f 64 |ode_EX%,|100<<Mod|
|00000070| 65 5f 45 59 25 29 0d 00 | 04 05 e0 0d 00 05 05 3a |e_EY%)..|.......:|
|00000080| 0d 00 06 1b dd 20 f2 64 | 72 6f 70 62 6f 78 28 78 |..... .d|ropbox(x|
|00000090| 25 2c 79 25 2c 77 25 2c | 68 25 29 0d 00 07 0d ea |%,y%,w%,|h%).....|
|000000a0| 20 6e 78 25 2c 6e 79 25 | 0d 00 08 12 6e 78 25 3d | nx%,ny%|....nx%=|
|000000b0| 78 25 2d 28 77 25 3e 3e | 31 29 0d 00 09 12 6e 79 |x%-(w%>>|1)....ny|
|000000c0| 25 3d 79 25 2d 28 68 25 | 3e 3e 31 29 0d 00 0a 1a |%=y%-(h%|>>1)....|
|000000d0| f2 73 65 74 63 6f 6c 6f | 75 72 28 36 34 2c 36 34 |.setcolo|ur(64,64|
|000000e0| 2c 36 34 2c 30 29 0d 00 | 0b 1b c8 93 20 c8 90 20 |,64,0)..|.... .. |
|000000f0| 6e 78 25 2b 38 2c 6e 79 | 25 2d 38 2c 77 25 2c 68 |nx%+8,ny|%-8,w%,h|
|00000100| 25 0d 00 0c 1d f2 73 65 | 74 63 6f 6c 6f 75 72 28 |%.....se|tcolour(|
|00000110| 32 35 35 2c 32 35 35 2c | 32 35 35 2c 30 29 0d 00 |255,255,|255,0)..|
|00000120| 0d 17 c8 93 20 c8 90 20 | 6e 78 25 2c 6e 79 25 2c |.... .. |nx%,ny%,|
|00000130| 77 25 2c 68 25 0d 00 0e | 17 f2 73 65 74 63 6f 6c |w%,h%...|..setcol|
|00000140| 6f 75 72 28 30 2c 30 2c | 30 2c 30 29 0d 00 0f 14 |our(0,0,|0,0)....|
|00000150| c8 93 20 6e 78 25 2c 6e | 79 25 2c 77 25 2c 68 25 |.. nx%,n|y%,w%,h%|
|00000160| 0d 00 10 05 e1 0d 00 11 | 05 3a 0d 00 12 13 f4 20 |........|.:..... |
|00000170| 50 52 4f 43 73 65 74 63 | 6f 6c 6f 75 72 0d 00 13 |PROCsetc|olour...|
|00000180| 46 f4 20 72 25 2c 20 67 | 25 2c 20 62 25 20 73 65 |F. r%, g|%, b% se|
|00000190| 74 20 74 68 65 20 61 6d | 6f 75 6e 74 73 20 6f 66 |t the am|ounts of|
|000001a0| 20 72 65 64 20 67 72 65 | 65 6e 20 61 6e 64 20 62 | red gre|en and b|
|000001b0| 6c 75 65 20 66 6f 72 20 | 74 68 65 20 64 65 73 69 |lue for |the desi|
|000001c0| 72 65 64 0d 00 14 0d f4 | 20 63 6f 6c 6f 75 72 2e |red.....| colour.|
|000001d0| 0d 00 15 22 f4 20 43 6f | 6c 6f 75 72 54 72 61 6e |...". Co|lourTran|
|000001e0| 73 5f 53 65 74 47 43 4f | 4c 20 3d 20 26 34 30 37 |s_SetGCO|L = &407|
|000001f0| 34 33 0d 00 16 22 dd 20 | f2 73 65 74 63 6f 6c 6f |43...". |.setcolo|
|00000200| 75 72 28 72 25 2c 67 25 | 2c 62 25 2c 65 66 66 65 |ur(r%,g%|,b%,effe|
|00000210| 63 74 25 29 0d 00 17 0d | ea 20 63 6f 6c 6f 75 72 |ct%)....|. colour|
|00000220| 25 0d 00 18 25 63 6f 6c | 6f 75 72 25 3d 28 62 25 |%...%col|our%=(b%|
|00000230| 3c 3c 32 34 29 2b 28 67 | 25 3c 3c 31 36 29 2b 28 |<<24)+(g|%<<16)+(|
|00000240| 72 25 3c 3c 38 29 0d 00 | 19 21 c8 99 20 26 34 30 |r%<<8)..|.!.. &40|
|00000250| 37 34 33 2c 63 6f 6c 6f | 75 72 25 2c 2c 2c 30 2c |743,colo|ur%,,,0,|
|00000260| 65 66 66 65 63 74 25 0d | 00 1a 05 e1 0d 00 1b 05 |effect%.|........|
|00000270| 3a 0d 00 1c 0e f4 20 4d | 6f 64 65 49 6e 66 6f 0d |:..... M|odeInfo.|
|00000280| 00 1d 44 f4 20 72 65 74 | 75 72 6e 73 20 64 65 74 |..D. ret|urns det|
|00000290| 61 69 6c 73 20 61 62 6f | 75 74 20 74 68 65 20 63 |ails abo|ut the c|
|000002a0| 75 72 72 65 6e 74 20 6d | 6f 64 65 20 69 6e 20 74 |urrent m|ode in t|
|000002b0| 68 65 20 4d 6f 64 65 5f | 20 76 61 72 69 61 62 6c |he Mode_| variabl|
|000002c0| 65 73 2e 0d 00 1e 3e f4 | 20 74 68 65 73 65 20 61 |es....>.| these a|
|000002d0| 72 65 20 47 4c 4f 42 41 | 4c 20 61 6e 64 20 63 61 |re GLOBA|L and ca|
|000002e0| 6e 20 62 65 20 75 73 65 | 64 20 61 6e 79 77 68 65 |n be use|d anywhe|
|000002f0| 72 65 20 69 6e 20 74 68 | 65 20 63 61 6c 6c 69 6e |re in th|e callin|
|00000300| 67 0d 00 1f 44 f4 20 70 | 72 6f 67 72 61 6d 2e 20 |g...D. p|rogram. |
|00000310| 20 54 68 65 79 20 73 68 | 6f 75 6c 64 20 6e 6f 74 | They sh|ould not|
|00000320| 20 62 65 20 63 68 61 6e | 67 65 64 20 6f 75 74 73 | be chan|ged outs|
|00000330| 69 64 65 20 6f 66 20 74 | 68 69 73 20 70 72 6f 63 |ide of t|his proc|
|00000340| 65 64 75 72 65 0d 00 20 | 2d f4 20 69 2e 65 2e 20 |edure.. |-. i.e. |
|00000350| 74 72 65 61 74 20 74 68 | 65 6d 20 61 73 20 72 65 |treat th|em as re|
|00000360| 61 64 20 6f 6e 6c 79 20 | 76 61 72 69 61 62 6c 65 |ad only |variable|
|00000370| 73 2e 0d 00 21 0f dd 20 | f2 4d 6f 64 65 49 6e 66 |s...!.. |.ModeInf|
|00000380| 6f 0d 00 22 1d ea 20 78 | 77 6c 25 2c 79 77 6c 25 |o..".. x|wl%,ywl%|
|00000390| 2c 78 65 66 25 2c 79 65 | 66 25 2c 6e 63 25 0d 00 |,xef%,ye|f%,nc%..|
|000003a0| 23 29 c8 99 20 22 4f 53 | 5f 52 65 61 64 4d 6f 64 |#).. "OS|_ReadMod|
|000003b0| 65 56 61 72 69 61 62 6c | 65 22 2c 2d 31 2c 33 20 |eVariabl|e",-1,3 |
|000003c0| b8 20 2c 2c 6e 63 25 0d | 00 24 2a c8 99 20 22 4f |. ,,nc%.|.$*.. "O|
|000003d0| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|000003e0| 6c 65 22 2c 2d 31 2c 34 | 20 b8 20 2c 2c 78 65 66 |le",-1,4| . ,,xef|
|000003f0| 25 0d 00 25 2a c8 99 20 | 22 4f 53 5f 52 65 61 64 |%..%*.. |"OS_Read|
|00000400| 4d 6f 64 65 56 61 72 69 | 61 62 6c 65 22 2c 2d 31 |ModeVari|able",-1|
|00000410| 2c 35 20 b8 20 2c 2c 79 | 65 66 25 0d 00 26 2b c8 |,5 . ,,y|ef%..&+.|
|00000420| 99 20 22 4f 53 5f 52 65 | 61 64 4d 6f 64 65 56 61 |. "OS_Re|adModeVa|
|00000430| 72 69 61 62 6c 65 22 2c | 2d 31 2c 31 31 20 b8 20 |riable",|-1,11 . |
|00000440| 2c 2c 78 77 6c 25 0d 00 | 27 2b c8 99 20 22 4f 53 |,,xwl%..|'+.. "OS|
|00000450| 5f 52 65 61 64 4d 6f 64 | 65 56 61 72 69 61 62 6c |_ReadMod|eVariabl|
|00000460| 65 22 2c 2d 31 2c 31 32 | 20 b8 20 2c 2c 79 77 6c |e",-1,12| . ,,ywl|
|00000470| 25 0d 00 28 18 4d 6f 64 | 65 5f 58 50 69 78 65 6c |%..(.Mod|e_XPixel|
|00000480| 73 25 3d 78 77 6c 25 2b | 31 0d 00 29 18 4d 6f 64 |s%=xwl%+|1..).Mod|
|00000490| 65 5f 59 50 69 78 65 6c | 73 25 3d 79 77 6c 25 2b |e_YPixel|s%=ywl%+|
|000004a0| 31 0d 00 2a 11 4d 6f 64 | 65 5f 45 58 25 3d 78 65 |1..*.Mod|e_EX%=xe|
|000004b0| 66 25 0d 00 2b 11 4d 6f | 64 65 5f 45 59 25 3d 79 |f%..+.Mo|de_EY%=y|
|000004c0| 65 66 25 0d 00 2c 26 4d | 6f 64 65 5f 4c 6f 67 69 |ef%..,&M|ode_Logi|
|000004d0| 63 61 6c 58 25 3d 4d 6f | 64 65 5f 58 50 69 78 65 |calX%=Mo|de_XPixe|
|000004e0| 6c 73 25 3c 3c 78 65 66 | 25 0d 00 2d 26 4d 6f 64 |ls%<<xef|%..-&Mod|
|000004f0| 65 5f 4c 6f 67 69 63 61 | 6c 59 25 3d 4d 6f 64 65 |e_Logica|lY%=Mode|
|00000500| 5f 59 50 69 78 65 6c 73 | 25 3c 3c 79 65 66 25 0d |_YPixels|%<<yef%.|
|00000510| 00 2e 1d 4d 6f 64 65 5f | 43 6f 6c 6f 75 72 73 52 |...Mode_|ColoursR|
|00000520| 65 74 75 72 6e 65 64 25 | 3d 6e 63 25 0d 00 2f 1e |eturned%|=nc%../.|
|00000530| c8 8e 20 4d 6f 64 65 5f | 43 6f 6c 6f 75 72 73 52 |.. Mode_|ColoursR|
|00000540| 65 74 75 72 6e 65 64 25 | 20 ca 0d 00 30 22 20 20 |eturned%| ...0"  |
|00000550| c9 20 20 20 20 2d 31 20 | 3a 20 4d 6f 64 65 5f 43 |.    -1 |: Mode_C|
|00000560| 6f 6c 6f 75 72 43 6f 64 | 65 25 3d 35 0d 00 31 29 |olourCod|e%=5..1)|
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4d |        |       M|
|00000580| 6f 64 65 5f 43 6f 6c 6f | 75 72 73 25 3d 31 36 37 |ode_Colo|urs%=167|
|00000590| 37 37 32 31 36 0d 00 32 | 22 20 20 c9 20 20 20 20 |77216..2|"  .    |
|000005a0| 20 31 20 3a 20 4d 6f 64 | 65 5f 43 6f 6c 6f 75 72 | 1 : Mod|e_Colour|
|000005b0| 43 6f 64 65 25 3d 30 0d | 00 33 22 20 20 20 20 20 |Code%=0.|.3"     |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 4d 6f 64 65 5f 43 |        |  Mode_C|
|000005d0| 6f 6c 6f 75 72 73 25 3d | 32 0d 00 34 22 20 20 c9 |olours%=|2..4"  .|
|000005e0| 20 20 20 20 20 33 20 3a | 20 4d 6f 64 65 5f 43 6f |     3 :| Mode_Co|
|000005f0| 6c 6f 75 72 43 6f 64 65 | 25 3d 31 0d 00 35 22 20 |lourCode|%=1..5" |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 6f |        |      Mo|
|00000610| 64 65 5f 43 6f 6c 6f 75 | 72 73 25 3d 34 0d 00 36 |de_Colou|rs%=4..6|
|00000620| 22 20 20 c9 20 20 20 20 | 31 35 20 3a 20 4d 6f 64 |"  .    |15 : Mod|
|00000630| 65 5f 43 6f 6c 6f 75 72 | 43 6f 64 65 25 3d 32 0d |e_Colour|Code%=2.|
|00000640| 00 37 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.7#     |        |
|00000650| 20 20 4d 6f 64 65 5f 43 | 6f 6c 6f 75 72 73 25 3d |  Mode_C|olours%=|
|00000660| 31 36 0d 00 38 22 20 20 | c9 20 20 20 20 36 33 20 |16..8"  |.    63 |
|00000670| 3a 20 4d 6f 64 65 5f 43 | 6f 6c 6f 75 72 43 6f 64 |: Mode_C|olourCod|
|00000680| 65 25 3d 33 0d 00 39 24 | 20 20 20 20 20 20 20 20 |e%=3..9$|        |
|00000690| 20 20 20 20 20 20 20 4d | 6f 64 65 5f 43 6f 6c 6f |       M|ode_Colo|
|000006a0| 75 72 73 25 3d 32 35 36 | 0d 00 3a 22 20 20 c9 20 |urs%=256|..:"  . |
|000006b0| 20 20 32 35 35 20 3a 20 | 4d 6f 64 65 5f 43 6f 6c |  255 : |Mode_Col|
|000006c0| 6f 75 72 43 6f 64 65 25 | 3d 33 0d 00 3b 24 20 20 |ourCode%|=3..;$  |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4d 6f 64 |        |     Mod|
|000006e0| 65 5f 43 6f 6c 6f 75 72 | 73 25 3d 32 35 36 0d 00 |e_Colour|s%=256..|
|000006f0| 3c 22 20 20 c9 20 36 35 | 35 33 35 20 3a 20 4d 6f |<"  . 65|535 : Mo|
|00000700| 64 65 5f 43 6f 6c 6f 75 | 72 43 6f 64 65 25 3d 34 |de_Colou|rCode%=4|
|00000710| 0d 00 3d 26 20 20 20 20 | 20 20 20 20 20 20 20 20 |..=&    |        |
|00000720| 20 20 20 4d 6f 64 65 5f | 43 6f 6c 6f 75 72 73 25 |   Mode_|Colours%|
|00000730| 3d 33 32 37 36 38 0d 00 | 3e 05 cb 0d 00 3f 05 e1 |=32768..|>....?..|
|00000740| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+